home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / utilities / mapeditor.lha / mapeditor / arexx / MapLoader.bb2 < prev    next >
Unknown  |  1995-03-01  |  1.9 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '; Example arexx program for LES Map Editor' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 45 78 61 6d 70 6c | 65 20 61 72 65 78 78 20 |; Exampl|e arexx |
|00000010| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 4c 45 53 20 |program |for LES |
|00000020| 4d 61 70 20 45 64 69 74 | 6f 72 00 3b 20 54 68 69 |Map Edit|or.; Thi|
|00000030| 73 20 70 72 6f 67 72 61 | 6d 20 73 69 6d 70 6c 79 |s progra|m simply|
|00000040| 20 73 74 61 72 74 73 20 | 69 74 73 65 6c 66 20 75 | starts |itself u|
|00000050| 70 20 61 6e 64 20 72 65 | 63 65 69 76 65 73 20 6d |p and re|ceives m|
|00000060| 65 73 73 61 67 65 73 20 | 66 72 6f 6d 20 74 68 65 |essages |from the|
|00000070| 00 3b 20 4d 61 70 20 45 | 64 69 74 6f 72 2e 20 20 |.; Map E|ditor.  |
|00000080| 59 6f 75 20 77 69 6c 6c | 20 6e 65 65 64 20 74 6f |You will| need to|
|00000090| 20 72 75 6e 20 74 68 65 | 20 4d 61 70 20 45 64 69 | run the| Map Edi|
|000000a0| 74 6f 72 20 74 6f 20 71 | 75 69 74 20 74 68 69 73 |tor to q|uit this|
|000000b0| 20 65 78 61 6d 70 6c 65 | 00 3b 20 70 72 6f 67 72 | example|.; progr|
|000000c0| 61 6d 2e 00 00 3b 20 50 | 6c 65 61 73 65 20 73 65 |am...; P|lease se|
|000000d0| 65 20 74 68 65 20 41 6d | 69 67 61 47 75 69 64 65 |e the Am|igaGuide|
|000000e0| 20 66 69 6c 65 20 66 6f | 72 20 6d 6f 72 65 20 69 | file fo|r more i|
|000000f0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 61 62 6f 75 74 |nformati|on about|
|00000100| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6e 67 00 3b | communi|cating.;|
|00000110| 20 76 69 61 20 61 72 65 | 78 78 2e 00 00 3b 2a 2a | via are|xx...;**|
|00000120| 2a 20 4d 61 6b 65 20 73 | 75 72 65 20 79 6f 75 20 |* Make s|ure you |
|00000130| 68 61 76 65 20 74 68 65 | 20 52 49 41 52 65 78 78 |have the| RIARexx|
|00000140| 20 6c 69 62 72 61 72 79 | 20 69 6e 73 74 61 6c 6c | library| install|
|00000150| 65 64 20 69 6e 20 79 6f | 75 72 20 64 65 66 6c 69 |ed in yo|ur defli|
|00000160| 62 73 20 66 69 6c 65 00 | 3b 20 20 20 20 43 6f 70 |bs file.|;    Cop|
|00000170| 79 20 74 68 65 20 52 49 | 41 52 65 78 78 2e 6f 62 |y the RI|ARexx.ob|
|00000180| 6a 20 66 69 6c 65 20 74 | 6f 20 42 6c 69 74 7a 6c |j file t|o Blitzl|
|00000190| 69 62 73 3a 55 73 65 72 | 6c 69 62 73 2f 20 74 68 |ibs:User|libs/ th|
|000001a0| 65 6e 20 72 75 6e 20 4d | 61 6b 65 44 65 66 6c 69 |en run M|akeDefli|
|000001b0| 62 73 00 00 3b 53 6f 20 | 77 65 20 63 61 6e 20 73 |bs..;So |we can s|
|000001c0| 74 61 72 74 20 75 70 20 | 66 72 6f 6d 20 77 6f 72 |tart up |from wor|
|000001d0| 6b 62 65 6e 63 68 20 69 | 66 20 77 65 20 77 61 6e |kbench i|f we wan|
|000001e0| 74 20 74 6f 00 80 c3 00 | 00 3b 52 45 53 45 52 56 |t to....|.;RESERV|
|000001f0| 45 44 20 42 59 20 46 55 | 4e 43 54 49 4f 4e 53 00 |ED BY FU|NCTIONS.|
|00000200| 70 6f 72 74 2e 6c 3d 30 | 3a 70 6f 72 74 6e 61 6d |port.l=0|:portnam|
|00000210| 65 24 3d 22 4d 61 70 4c | 6f 61 64 65 72 22 00 00 |e$="MapL|oader"..|
|00000220| 3b 4f 75 72 20 73 74 72 | 75 63 74 75 72 65 20 66 |;Our str|ucture f|
|00000230| 6f 72 20 70 61 73 73 69 | 6e 67 20 64 61 74 61 20 |or passi|ng data |
|00000240| 74 6f 20 74 68 65 20 6d | 61 70 20 65 64 69 74 6f |to the m|ap edito|
|00000250| 72 00 80 01 2e 20 6d 61 | 70 65 64 69 74 6f 72 6d |r.... ma|peditorm|
|00000260| 73 67 00 20 20 77 69 64 | 74 68 2e 77 00 20 20 68 |sg.  wid|th.w.  h|
|00000270| 65 69 67 68 74 2e 77 00 | 20 20 62 77 69 64 74 68 |eight.w.|  bwidth|
|00000280| 2e 77 00 20 20 62 68 65 | 69 67 68 74 2e 77 00 20 |.w.  bhe|ight.w. |
|00000290| 20 64 61 74 61 74 79 70 | 65 2e 62 00 20 20 6d 61 | datatyp|e.b.  ma|
|000002a0| 70 6e 75 6c 6c 2e 62 00 | 20 20 61 64 64 72 65 73 |pnull.b.|  addres|
|000002b0| 73 2e 6c 00 80 02 20 80 | 01 00 00 80 33 2e 6d 61 |s.l... .|....3.ma|
|000002c0| 70 65 64 69 74 6f 72 6d | 73 67 20 6d 79 6d 73 67 |peditorm|sg mymsg|
|000002d0| 00 00 3b 53 65 6e 64 20 | 61 20 63 6f 6d 6d 61 6e |..;Send |a comman|
|000002e0| 64 20 74 6f 20 61 6e 20 | 41 52 45 58 58 20 70 6f |d to an |AREXX po|
|000002f0| 72 74 2e 2e 2e 68 6f 73 | 74 24 20 69 73 20 74 68 |rt...hos|t$ is th|
|00000300| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 61 72 |e name o|f the ar|
|00000310| 65 78 78 20 70 6f 72 74 | 00 3b 20 20 63 6f 6d 6d |exx port|.;  comm|
|00000320| 61 6e 64 24 20 69 73 20 | 74 68 65 20 63 6f 6d 6d |and$ is |the comm|
|00000330| 61 6e 64 20 74 6f 20 73 | 65 6e 64 2e 2e 2e 72 65 |and to s|end...re|
|00000340| 74 75 72 6e 73 20 2d 31 | 20 6f 72 20 30 00 3b 20 |turns -1| or 0.; |
|00000350| 72 65 70 6c 79 24 20 68 | 6f 6c 64 73 20 74 68 65 |reply$ h|olds the|
|00000360| 20 72 65 74 75 72 6e 20 | 73 74 72 69 6e 67 20 66 | return |string f|
|00000370| 72 6f 6d 20 74 68 65 20 | 68 6f 73 74 00 80 09 20 |rom the |host... |
|00000380| 44 6f 53 65 6e 64 52 65 | 78 78 4d 65 73 73 61 67 |DoSendRe|xxMessag|
|00000390| 65 7b 68 6f 73 74 24 2c | 63 6f 6d 6d 61 6e 64 24 |e{host$,|command$|
|000003a0| 7d 00 20 20 80 15 20 70 | 6f 72 74 2c 70 6f 72 74 |}.  .. p|ort,port|
|000003b0| 6e 61 6d 65 24 2c 72 65 | 70 6c 79 24 00 00 20 20 |name$,re|ply$..  |
|000003c0| 80 0b 20 70 6f 72 74 3d | 30 20 80 21 20 80 09 20 |.. port=|0 .! .. |
|000003d0| 80 07 20 30 00 20 20 80 | 0b 20 fe b7 28 68 6f 73 |.. 0.  .|. ..(hos|
|000003e0| 74 24 29 3d 30 20 80 21 | 20 80 09 20 80 07 20 30 |t$)=0 .!| .. .. 0|
|000003f0| 00 00 20 20 6d 73 67 2e | 6c 3d c2 82 00 20 20 c2 |..  msg.|l=...  .|
|00000400| 83 20 6d 73 67 2c 30 2c | 70 6f 72 74 6e 61 6d 65 |. msg,0,|portname|
|00000410| 24 00 20 20 c2 83 20 6d | 73 67 2c 31 2c 63 6f 6d |$.  .. m|sg,1,com|
|00000420| 6d 61 6e 64 24 00 20 20 | 72 65 70 6c 79 24 3d c2 |mand$.  |reply$=.|
|00000430| 8f 28 68 6f 73 74 24 2c | 6d 73 67 29 00 00 20 20 |.(host$,|msg)..  |
|00000440| 80 09 20 80 07 20 2d 31 | 00 80 02 20 80 09 00 00 |.. .. -1|... ....|
|00000450| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 00 00 3b 41 | 72 65 20 77 65 20 61 6c |====..;A|re we al|
|000004a0| 72 65 61 64 79 20 72 75 | 6e 6e 69 6e 67 3f 20 20 |ready ru|nning?  |
|000004b0| 49 66 20 79 65 73 20 74 | 68 65 6e 20 71 75 69 74 |If yes t|hen quit|
|000004c0| 00 61 2e 6c 3d fe b7 28 | 70 6f 72 74 6e 61 6d 65 |.a.l=..(|portname|
|000004d0| 24 29 00 80 0b 20 61 3c | 3e 30 00 20 20 80 02 00 |$)... a<|>0.  ...|
|000004e0| 80 c0 00 00 3b 43 72 65 | 61 74 65 20 6f 75 72 20 |....;Cre|ate our |
|000004f0| 6d 65 73 73 61 67 65 20 | 70 6f 72 74 00 70 6f 72 |message |port.por|
|00000500| 74 2e 6c 3d c2 81 28 70 | 6f 72 74 6e 61 6d 65 24 |t.l=..(p|ortname$|
|00000510| 29 00 80 0b 20 70 6f 72 | 74 3d 30 20 80 21 20 80 |)... por|t=0 .! .|
|00000520| 02 00 00 3b 41 6e 64 20 | 73 69 67 6e 61 6c 20 74 |...;And |signal t|
|00000530| 68 65 20 4d 61 70 20 45 | 64 69 74 6f 72 20 74 6f |he Map E|ditor to|
|00000540| 20 73 65 6e 64 20 75 73 | 20 61 20 6d 65 73 73 61 | send us| a messa|
|00000550| 67 65 20 62 65 66 6f 72 | 65 20 69 74 20 71 75 69 |ge befor|e it qui|
|00000560| 74 73 00 72 65 74 2e 62 | 3d 44 6f 53 65 6e 64 52 |ts.ret.b|=DoSendR|
|00000570| 65 78 78 4d 65 73 73 61 | 67 65 7b 22 4d 61 70 45 |exxMessa|ge{"MapE|
|00000580| 64 69 74 6f 72 22 2c 22 | 4b 49 4c 4c 4d 45 22 7d |ditor","|KILLME"}|
|00000590| 00 00 3b 4f 75 72 20 64 | 65 66 61 75 6c 74 20 64 |..;Our d|efault d|
|000005a0| 69 72 65 63 74 6f 72 79 | 20 74 6f 20 6c 6f 61 64 |irectory| to load|
|000005b0| 20 66 72 6f 6d 00 6d 61 | 70 66 69 6c 24 3d 22 22 | from.ma|pfil$=""|
|000005c0| 00 00 3b 4c 6f 6f 70 20 | 75 6e 74 69 6c 20 77 65 |..;Loop |until we|
|000005d0| 20 68 61 76 65 20 74 6f | 20 71 75 69 74 00 80 bb | have to| quit...|
|000005e0| 00 20 20 6d 73 67 2e 6c | 3d c2 8e 20 20 20 20 20 |.  msg.l|=..     |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000600| 20 47 65 74 20 61 20 6d | 65 73 73 61 67 65 00 20 | Get a m|essage. |
|00000610| 20 61 24 3d dc 98 28 c2 | 8a 28 6d 73 67 2c 31 29 | a$=..(.|.(msg,1)|
|00000620| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |)       |      ; |
|00000630| 47 65 74 20 74 68 65 20 | 61 72 67 75 65 6d 65 6e |Get the |arguemen|
|00000640| 74 00 20 20 c2 87 20 6d | 73 67 2c 30 2c 22 22 20 |t.  .. m|sg,0,"" |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000660| 20 4d 55 53 54 20 52 45 | 50 4c 59 21 00 00 3b 59 | MUST RE|PLY!..;Y|
|00000670| 6f 75 72 20 70 72 6f 67 | 72 61 6d 20 77 69 6c 6c |our prog|ram will|
|00000680| 20 70 72 6f 63 65 73 73 | 20 74 68 65 20 63 6f 6d | process| the com|
|00000690| 6d 61 6e 64 20 68 65 72 | 65 00 3b 49 74 20 73 68 |mand her|e.;It sh|
|000006a0| 6f 75 6c 64 20 72 65 73 | 70 6f 6e 64 20 74 6f 20 |ould res|pond to |
|000006b0| 61 74 20 6c 65 61 73 74 | 3a 20 4c 4f 41 44 2c 53 |at least|: LOAD,S|
|000006c0| 41 56 45 2c 41 42 4f 55 | 54 2c 51 55 49 54 00 00 |AVE,ABOU|T,QUIT..|
|000006d0| 20 20 80 0b 20 61 24 3c | 3e 22 45 58 49 54 22 00 |  .. a$<|>"EXIT".|
|000006e0| 20 20 20 20 72 65 74 2e | 62 3d 44 6f 53 65 6e 64 |    ret.|b=DoSend|
|000006f0| 52 65 78 78 4d 65 73 73 | 61 67 65 7b 22 4d 61 70 |RexxMess|age{"Map|
|00000700| 45 64 69 74 6f 72 22 2c | 22 52 45 51 55 45 53 54 |Editor",|"REQUEST|
|00000710| 20 22 2b dc 86 28 33 34 | 29 2b da 02 24 28 3f 69 | "+..(34|)+..$(?i|
|00000720| 6e 66 6f 29 2b 22 7c 22 | 2b 61 24 2b dc 86 28 33 |nfo)+"|"|+a$+..(3|
|00000730| 34 29 2b 22 20 5f 59 69 | 70 70 65 65 21 22 7d 00 |4)+" _Yi|ppee!"}.|
|00000740| 20 20 80 c0 00 80 bc 20 | 61 24 3d 22 51 55 49 54 |  ..... |a$="QUIT|
|00000750| 22 20 80 8a 20 61 24 3d | 22 45 58 49 54 22 00 80 |" .. a$=|"EXIT"..|
|00000760| 02 00 00 69 6e 66 6f 3a | 20 80 25 2e 62 20 22 45 |...info:| .%.b "E|
|00000770| 78 61 6d 70 6c 65 20 4d | 61 70 20 4c 6f 61 64 65 |xample M|ap Loade|
|00000780| 72 7c 42 79 20 53 74 65 | 70 68 65 6e 20 4d 63 4e |r|By Ste|phen McN|
|00000790| 61 6d 61 72 61 7c 28 43 | 29 31 39 39 35 20 4c 65 |amara|(C|)1995 Le|
|000007a0| 61 64 69 6e 67 20 45 64 | 67 65 20 53 6f 66 74 77 |ading Ed|ge Softw|
|000007b0| 61 72 65 7c 20 7c 20 43 | 6f 6d 6d 61 6e 64 3a 22 |are| | C|ommand:"|
|000007c0| 2c 30 00 dd 82 20 22 22 | 00 00                   |,0... ""|..      |
+--------+-------------------------+-------------------------+--------+--------+